5 POKE53248+21,0 10 BO=53280:BA=53281:SC=1024:CC=55296:X=156:X1=4:V=53248:S=54272:MU=-1 15 DIMVH(25),VL(25),VD(25),UH(21),UL(21),UD(21),WH(21),WL(21),WD(21) 20 POKEBO,4:POKEBA,1:PRINT"[147][144]"; 25 FORT=1TO8:READA(T):NEXT 30 FORT=1TO25:READVH(T),VL(T),VD(T):NEXT 35 FORT=1TO19:READUH(T),UL(T),UD(T):NEXT 40 FORT=1TO21:READWH(T),WL(T),WD(T):NEXT 45 FORT=12288TO12798:READA:POKET,A:NEXT 50 PRINT"[147] TOUCH ANY KEY, SWEETIE" 55 GETA$:IFA$=""THEN55 60 POKEV+21,195 65 FORT=0TO7:POKE2040+T,192+T:NEXT 70 FORT=0TO10STEP2:POKEV+T,172:NEXT 75 POKEV+12,75:POKEV+14,255:POKEV+8,161 80 POKEV+1,191:POKEV+3,210:POKEV+5,210:POKEV+7,191:POKEV+9,171 85 POKEV+11,191:POKEV+13,100:POKEV+15,190 90 POKEV+28,63:POKEV+37,0:POKEV+38,7 95 FORT=39TO44:POKEV+T,2:NEXT 100 POKEV+45,15:POKEV+46,15:POKEV+29,16 105 POKEV+39,2:POKEVV+40,2:POKEV+41,2:POKEV+42,2:POKEV+43,14:POKEV+44,2 110 POKEV+45,12:POKEV+46,12 115 GOSUB340:GOSUB140:GOSUB210 120 GOTO63000 125 POKEBO,6:POKEBA,3:PRINT"[147]" 130 X=154:X1=14:GOSUB340 135 RETURN 140 PRINT""; 145 PRINT,"[154][157][157] [166] [166] ",,; 150 PRINT,,"[157] [166] [166] [166][166][166] [166] [166]" 155 PRINT,"[157] [166] [166] [166] [166] [166] [166]"; 160 PRINT,"[157] [166] [166] [166] [166] [166]" 165 PRINT,"[157] [166] [166] [166] [166] [166]"; 170 PRINT,"[157] [166] [166][166][166] [166][166][166]" 175 PRINT,"[152] DESERVE THE BEST" 180 PRINT,,"[158] [162] " 185 PRINT,,"[157][169][146][169][169][146][169]",,; 190 PRINT,,"[157][157][169][146][169][169][146][169]" 195 PRINT,,"[157][157] [184] " 200 PRINT,,"[156][157][157][157][157]CAN GIVE" 205 RETURN 210 FORT=STOS+24:POKET,0:NEXT 215 POKES+24,15:POKES+5,66:POKES+12,66:POKES+19,66 220 POKES+6,130:POKES+13,130:POKES+20,130 225 Q=1:Y=1:Z=1 230 VD(Q)=VD(Q)-1:IFVD(Q)=0THENPOKES+4,16:Q=Q+1 235 UD(Y)=UD(Y)-1:IFUD(Y)=0THENPOKES+11,16:Y=Y+1 240 WD(Z)=WD(Z)-1:IFWD(Z)=0THENPOKES+18,16:Z=Z+1 245 MU=-MU:POKE2046,PEEK(2046)+MU:POKE2047,PEEK(2047)-MU 250 FORT=1TO30:NEXT 255 POKES,VL(Q):POKES+1,VH(Q) 260 POKES+7,UL(Y):POKES+8,UH(Y) 265 POKES+14,WL(Z):POKES+15,WH(Z) 270 POKES+4,17:POKES+11,17:POKES+18,17 275 IFQ=25THEN310 280 IFQ=20THENGOSUB305 285 IFQ=19THENGOSUB295 290 FORT=1TO100:NEXT:GOTO230 295 K=K+1:IFK<4THENRETURN 300 GOSUB125:RETURN 305 POKEV+21,220:RETURN 310 PRINT"[151]","YOU'RE MY PERFECT TEN" 315 PRINT," SHERRY":REM YOUR SWEETHEART'S NAME HERE 320 POKEV+21,252 325 FORT=150TO0STEP-1:POKES+24,T/10:POKEV+11,T:FORI=1TO10:NEXT:NEXT 330 PRINT,," LOVE,",,," MARK":REM YOUR NAME HERE 335 RETURN 340 PRINTCHR$(X)" [211] [211] [211] [211] [211] [211] [211] [211] [146]"; 345 FORT=1TO23:PRINT" [211] ",,,"[146]  [211] ";:NEXT 350 PRINT" [211] [211] [211] [211] [211] [211] [211] [211] " 351 POKE1024+((40*24)+39),160:POKE55296+((40*24)+39),4 355 FORT=1TO8STEP2:POKESC+A(T),A(T+1):POKECC+A(T),0:NEXT 360 POKESC+999,160:POKECC+999,X1:RETURN 365 DATA45,105,74,95,925,223,954,233 370 REM MUSIC DATA 375 DATA50,60,2,50,60,1,56,99,2,50,60,2,67,15,2,63,75,4,50,60,1,50,60,1 380 DATA56,99,2,50,60,2,75,69,2,67,15,4,50,60,1,50,60,1,100 385 DATA121,2,84,125,2,67,15,2,63,75,2,56,99,4,89,131,1,89,131 390 DATA1,84,125,2,67,15,2,75,69,2,67,15,6 395 DATA0,0,2,0,0,1,42,62,4,50,60,6,42,62,1,37,162,1,25,30,4,37,162,1,63,75,1 400 DATA50,60,6,84,125,2,67,15,2,50,60,2,44,193,4,44,193,4 405 DATA67,15,2,50,60,2,63,75,2,50,60,6,0,0,2,0,0,1,8,97 410 DATA4,6,167,2,6,71,4,4,180,2,6,71,4,4,180,2,4,48,2,8,97,2 415 DATA6,71,2,8,97,4,10,143,2,11,48,2,5,152,4,5,71,1,4,180,1,4,48,4 420 DATA6,71,2,8,97,2,4,48,4 425 REM SPRITES DATA 430 DATA002,170,168,010,170,170,042,191 435 DATA234,170,191,250,170,255,254,170 440 DATA255,254,175,255,254,165,085,085 445 DATA173,085,085,173,087,085,237,087 450 DATA213,253,087,245,255,243,252,255 455 DATA243,255,255,207,255,063,085,084 460 DATA063,085,084,015,255,255,015,250 465 DATA175,003,255,255,000,255,252,002 470 DATA010,255,160,042,190,168,170,170 475 DATA170,170,170,170,170,170,170,168 480 DATA170,138,168,170,138,170,170,170 485 DATA242,170,175,242,170,175,242,170 490 DATA175,241,000,031,241,085,095,255 495 DATA085,127,063,000,060,001,085,080 500 DATA001,085,080,001,093,080,001,093 505 DATA080,001,093,080,002,170,170,040 510 DATA170,255,170,170,190,170,170,170 515 DATA170,170,170,170,042,170,168,010 520 DATA170,160,002,170,160,002,170,160 525 DATA002,170,160,002,170,160,002,170 530 DATA160,001,000,016,001,085,080,001 535 DATA085,080,001,085,080,001,085,080 540 DATA001,085,080,001,081,080,001,081 545 DATA080,001,081,080,002,170,042,040 550 DATA254,170,191,254,170,191,254,255 555 DATA191,254,255,191,254,255,191,254 560 DATA255,191,252,255,063,253,085,127 565 DATA253,085,127,253,093,127,253,093 570 DATA127,253,127,127,252,255,063,252 575 DATA255,063,252,255,063,253,085,127 580 DATA253,085,127,252,255,063,252,234 585 DATA063,252,255,063,255,000,255,002 590 DATA085,085,085,085,085,085,106,170 595 DATA169,104,160,009,096,160,009,096 600 DATA162,137,104,162,137,104,162,137 605 DATA104,162,137,104,162,137,104,162 610 DATA137,104,162,137,104,162,137,104 615 DATA162,137,104,162,137,104,162,137 620 DATA096,032,009,096,032,009,106,170 625 DATA169,085,215,085,087,215,213,000 630 DATA010,128,000,136,136,128,136,136 635 DATA138,136,136,136,138,136,138,128 640 DATA002,008,128,002,010,170,000,000 645 DATA170,000,000,000,000,000,010,002 650 DATA128,042,138,160,170,170,040,170 655 DATA170,040,170,168,168,170,162,168 660 DATA042,170,160,010,170,128,002,170 665 DATA000,000,168,000,000,032,000,000 670 DATA000,000,000,000,000,000,000,000 675 DATA000,000,003,224,000,063,224,003 680 DATA255,224,003,255,224,003,252,032 685 DATA003,192,032,002,000,032,002,000 690 DATA032,002,000,032,002,007,160,002 695 DATA015,224,122,015,224,254,015,192 700 DATA254,007,128,252,000,000,120,000 705 DATA000,000,000,000,000,000,000,000 710 DATA000,000,000,000,000,000,000,000 715 DATA000,000,000,000,000,062,000,000 720 DATA063,240,000,063,255,000,063,255 725 DATA000,035,255,000,032,062,000,064 730 DATA002,000,064,002,000,064,002,015 735 DATA064,004,031,192,004,031,192,244 740 DATA031,129,252,015,001,252,000,001 745 DATA248,000,000,240,000,000,000,000 63000 FORDL=1TO5000:NEXT:POKEV+21,0 63010 PRINT"[147][144]WANT TO RUN IT AGAIN ?" 63020 POKE198,0:WAIT198,1:GETK$ 63030 IFK$<>"Y"ANDK$<>"N"THENPOKE53280,RND(1)*15:GOTO63020 63040 IFK$="Y"THENRUN 63050 PRINT"[147]LOAD"CHR$(34)"C.PAYLOAD"CHR$(34)",8":PRINT"RUN" 63060 POKE631,13:POKE632,13:POKE198,2:END